home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / Meso.cpt / Mesopotamia 0.9 / card_14608.txt < prev    next >
Text File  |  1987-12-05  |  2KB  |  66 lines
  1. -- card: 14608 from stack: in.9
  2. -- bmap block id: 14990
  3. -- flags: 0000
  4. -- background id: 11179
  5. -- name: cun5
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=455 top=301 right=335 bottom=501
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 24317 / 24317
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Go first
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   set lockscreen to true
  23.   go card "tline"
  24.   hide background field "one"
  25.   hide background field "two"
  26.   hide background field "three"
  27.   hide background field "four"
  28.   set lockscreen to false
  29.   visual effect dissolve
  30.  
  31.   go to card "tline"
  32. end mouseUp
  33.  
  34.  
  35.  
  36.  
  37. -- part 2 (button)
  38. -- low flags: 00
  39. -- high flags: 0000
  40. -- rect: left=422 top=303 right=339 bottom=457
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: right dogear
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   -- this script handles a diagonally divided button, intended to be
  52.   --  a right dogear
  53.   put (item 1 of the clickLoc) - (item 1 of the rect of the target) into x
  54.   put (item 4 of the rect of the target) - (item 2 of the clickLoc) into y
  55.   if (x < y) then              -- click is in upper left
  56.     visual effect wipe left
  57.     play "click"
  58.     go to next card
  59.   else
  60.     visual effect wipe right
  61.     play "click"
  62.     go to prev card
  63.   end if
  64. end mouseUp
  65.  
  66.